      integer SIZE1OFgradsbINresidu
      parameter(SIZE1OFgradsbINresidu=20000)

